(fset 'ange-ftp-set-passwd #[(host user passwd) "└ ┬Q#ç" [ange-ftp-put-hash-entry host "/" user passwd ange-ftp-passwd-hashtable] 4 "\
For a given HOST and USER, set or change the associated PASSWORD." (byte-code "└┴!└┬!├─!Eç" [read-string "Host: " "User: " ange-ftp-read-passwd "Password: "] 4)])
Given a USER, return a host we know the password for."])
(fset 'ange-ftp-get-passwd #[(host user) "└ ê┴\n├Q\"«▐;½ì½ëÿ½âç╚ÿ¼à╔ÿ½ô\n½Å\n;½â\nç╦ ╠═ Qç╬!ë½ö╨╤╥\n%┴├Q\"\"¬ç╨╤╙\n#!╒\n#ê*ç" [ange-ftp-parse-netrc ange-ftp-get-hash-entry host "/" user ange-ftp-passwd-hashtable ange-ftp-default-user ange-ftp-default-password "anonymous" "ftp" ange-ftp-generate-anonymous-password user-login-name "@" system-name ange-ftp-get-host-with-passwd other ange-ftp-read-passwd format "passwd for %s@%s (same as %s@%s): " "Password for %s@%s: " passwd ange-ftp-set-passwd] 8 "\
Given a HOST and USER, return the FTP password, prompting if it was not
previously set."])
(fset 'ange-ftp-set-account #[(host user account) "└ ┬Q#ç" [ange-ftp-put-hash-entry host "/" user account ange-ftp-account-hashtable] 4 "\
For a given HOST and USER, set or change the associated ACCOUNT password." (byte-code "└┴!└┬!├─!Eç" [read-string "Host: " "User: " ange-ftp-read-passwd "Account password: "] 4)])
Return the name of the buffer that collects output from the ftp process
connected to the given HOST and USER pair."])
(fset 'ange-ftp-error #[(host user msg) "└ ┴─┼╞\"!!êdbê╔!ê*╩╦╠═\"C\"ç" [selected-window t pop-up-windows cur pop-to-buffer get-buffer-create ange-ftp-ftp-process-buffer host user select-window signal ftp-error format "FTP Error: %s" msg] 5 "\
Display the last chunk of output from the ftp process for the given HOST
USER pair, and signal an error including MSG in the text."])
Quote any characters in STRING that may confuse the ftp process."])
(fset 'ange-ftp-barf-if-not-directory #[(directory) "└ !«Å┬├─┼ !½â╞¬ü╟ E\"ç" [file-directory-p directory signal file-error "Opening directory" file-exists-p "not a directory" "no such file or directory"] 5])
Interactively adds a given HOST to ange-ftp-dumb-unix-host-regexp." (byte-code "└┴┬ «å─=¡üë¡à╟!@)\"Cç" [read-string "Host: " buffer-file-name major-mode dired-mode dired-directory name ange-ftp-ftp-path] 5)])
(defvar ange-ftp-parse-list-func-alist nil "\
Association list of ( TYPE . FUNC ) pairs. The FUNC is a routine
which can parse the output from a DIR listing for a host of type TYPE.")
Documented as original." "r\nFWrite region to file: "])
(fset 'ange-ftp-insert-file-contents #[(filename &optional visit) "└ ê┴\n!├\n!ëâ╛ ½â\n╟\n!¼æ╚ ╩╦\n!\"ê╟\n!â╢ @A@╧╨8!╥!╘\n!╓\n!╚┘Ľç┌\"ê█▄E▌▐\"$ë@¼ìαßΓ▌πA\"\nE\"ê)Σ!¼îσ&!¼åΣ!½ïτ\"A@¬èαßΦ▌Θ\n\"D\"ê)½â\n\n.D¬îαΩΓ\nD\"¬äτ\n\")ç" [barf-if-buffer-read-only expand-file-name filename ange-ftp-ftp-path parsed visit buffer-file-name file-exists-p nil ange-ftp-ls-cache-file ange-ftp-del-hash-entry file-name-directory ange-ftp-files-hashtable host user ange-ftp-quote-string 2 path ange-ftp-make-tmp-name temp ange-ftp-binary-file binary ange-ftp-abbreviate-filename abbr size ((byte-code "½à┴\n\"ê─!ç" [binary ange-ftp-set-ascii-mode host user ange-ftp-del-tmp-name temp] 3)) ange-ftp-set-binary-mode ange-ftp-send-cmd get format "Retrieving %s" result signal ftp-error "Opening input file" "FTP Error: \"%s\"" ange-ftp-real-file-readable-p sleep-for ange-ftp-retry-time ange-ftp-real-insert-file-contents "Opening input file:" "FTP Error: %s not arrived or readable" file-error] 8 "\
Documented as original."])
(fset 'ange-ftp-revert-buffer #[(arg noconfirm) "` ¼à┬├!¬º¼ê┼╞╟ \"!¡£╚ ╚╩ ê╦ ê)╠ ═\"ê)d^bê╬╚!ê═)ç" [opoint buffer-file-name error "Buffer does not seem to be associated with any file" noconfirm yes-or-no-p format "Revert buffer from file %s? " nil buffer-read-only unlock-buffer erase-buffer insert-file-contents t after-find-file] 4 "\
Revert this buffer from a remote file using ftp."])
Interactively adds a given HOST to ange-ftp-vms-host-regexp." (byte-code "└┴┬ «å─=¡üë¡à╟!@)\"Cç" [read-string "Host: " buffer-file-name major-mode dired-mode dired-directory name ange-ftp-ftp-path] 5)])
Interactively adds a given HOST to ange-ftp-mts-host-regexp." (byte-code "└┴┬ «å─=¡üë¡à╟!@)\"Cç" [read-string "Host: " buffer-file-name major-mode dired-mode dired-directory name ange-ftp-ftp-path] 5)])
(fset 'ange-ftp-dired-mts-move-to-filename #[(&optional raise-error eol) "¼à┴ê`┬yê├┼#½ù╞┴wê╟wê╞wê╚╔!½ä┬òbê`ç\n¡â╦╠!ç" [eol nil 0 re-search-forward ange-ftp-date-regexp t " " "0-9:" looking-at "[A-Z0-9_.]+:" raise-error error "No file on this line"] 4 "\
In dired, move to first char of filename on this line.
Returns position (point) or nil if no filename on this line."])
(byte-code "└ ₧¼ä┬ B├─Mê└₧¼ä╞B└ç" [mts ange-ftp-dired-move-to-filename-alist (mts . ange-ftp-dired-mts-move-to-filename) ange-ftp-dired-mts-move-to-end-of-filename #[(&optional no-error eol) "└ëë`è└ê`)¡çè╞╟╚#)ë¼ä╔wê\n¼æ`=½î╦\n½à╠═!¬ü╬!ê`=?¡ü`+ç" [nil case-fold-search hidden opoint eol selective-display search-forward "" t "-A-Z0-9._!" no-error error substitute-command-keys "File line is hidden, type \\[dired-hide-subdir] to unhide" "No file on this line"] 5] ange-ftp-dired-move-to-end-of-filename-alist (mts . ange-ftp-dired-mts-move-to-end-of-filename)] 2)
Interactively adds a given HOST to ange-ftp-cms-host-regexp." (byte-code "└┴┬ «å─=¡üë¡à╟!@)\"Cç" [read-string "Host: " buffer-file-name major-mode dired-mode dired-directory name ange-ftp-ftp-path] 5)])